home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / nrpas13.zip / FPOLY.PAS < prev    next >
Pascal/Delphi Source File  |  1991-04-29  |  297b  |  14 lines
  1. PROCEDURE fpoly(x: real; VAR p: glnparray; np: integer);
  2. (* Programs using routine FPOLY must define the type
  3. TYPE
  4.    glnparray = ARRAY [1..np] OF real;
  5. in the main routine.   *)
  6. VAR
  7.    j: integer;
  8. BEGIN
  9.    p[1] := 1.0;
  10.    FOR j := 2 TO np DO BEGIN
  11.       p[j] := p[j-1]*x
  12.    END
  13. END;
  14.